home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 153 / 153.d81 / u.mark my word (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  41 lines
  1. 10 poke53280,0:poke53281,0:printchr$(14)
  2. 20 print"[147][158]       [205] [193] [210] [203]   [205] [217]   [215] [207] [210] [196]"
  3. 30 print"[212]his program will modify your copy"
  4. 40 print"of '[205]ark [205]y [215]ord' letting you get all"
  5. 50 print"[204]etter [195]lues without having it"
  6. 60 print"cost 3 points.  [211]elect ([195]) to [195]onvert"
  7. 70 print"or ([210]) to return program to normal."
  8. 80 print"[201]t's best to use a [195][207][208][217] rather than"
  9. 90 print"using your original [204][207][193][196][211][212][193][210] disk!"
  10. 100 print"[205]ake sure that the [215]rite-[208]rotect tab"
  11. 110 print"is not covered on the disk."
  12. 130 print"[212]o make these changes, [201]nsert [204]oadstar"
  13. 140 print"[201]ssue #112 [211]ide 2 into [196]rive #8 and"
  14. 150 print"[211]elect ([195])onvert or ([210])estore."
  15. 152 print"[193]fter selecting, [196]o [206][207][212] touch the"
  16. 154 print"keyboard or open the disk drive door"
  17. 156 print"until the white [195]ursor appears!!!!!!"
  18. 157 print"       [211]elect ([195]) or ([210]) [206]ow"
  19. 160 geta$:ifa$=""then160
  20. 165 ifa$="c"then180
  21. 170 ifa$="r"then400
  22. 175 goto160
  23. 180 q$=chr$(34):f$="mark my word"
  24. 190 print"[147][144]load"q$f$q$",8"
  25. 200 print"1150 ph$="q$"[154][212]his will add 0 points!"q$":gosub1290
  26. 210 [153]"1230 lt$=mright$(wd$,k,1):lt=a(NULL)(lt$):co=2:pk=1038+2*k:go(NULL)300:co=7:wg=wg+0"
  27. 250 [153]"open15,8,15,"q$"s0:"f$q$":close15:save"q$f$q$",8"
  28. 260 [153]"poke646,1
  29. 270 print""
  30. 280 fori=631to640:pokei,13:next:poke198,10
  31. 290 new:end
  32. 400 q$=chr$(34):f$="mark my word"
  33. 410 print"[147][144]load"q$f$q$",8"
  34. 420 print"1150 ph$="q$"[154][212]his will add 3 points!"q$":gosub1290
  35. 425 [153]"1230 lt$=mright$(wd$,k,1):lt=a(NULL)(lt$):co=2:pk=1038+2*k:go(NULL)300:co=7:wg=wg+3"
  36. 430 [153]"open15,8,15,"q$"s0:"f$q$":close15:save"q$f$q$",8"
  37. 440 [153]"poke646,1
  38. 450 print""
  39. 460 fori=631to640:pokei,13:next:poke198,10
  40. 470 new:end
  41.